10 REM -SAYIT-
20 PRINT "[147]":PRINT:PRINT:PRINT "DO YOU WANT S[146]AM OR R[146]ECITER"
30 GET A$:IF A$="" THEN 30
40 IF A$="S" OR A$="[211]" THEN:]SA:PRINT:PRINT:GOTO 100
50 IF A$="R" OR A$="[210]" THEN:]RE:PRINT:PRINT:GOTO 100
60 GOTO 30
100 PRINT "SAY:[146]";
110 SA$=""
120 GET A$:IF A$="" THEN 120
122 A=ASC(A$):IF A>132 AND A<141 THEN 500
125 IF ASC(A$)=13 THEN SA$=T$:PRINT:GOTO 200
126 SA$=A$:PRINT A$;:IF ASC(A$)=20 THEN SA$="":GOTO 120
128 GET A$:IF A$="" THEN 128
130 PRINT A$;:IF ASC(A$)=13 THEN 200
140 SA$=SA$+A$
150 IF ASC(A$)=20 THEN SA$=LEFT$(SA$,LEN(SA$)-2)
160 GOTO 128
200 SAY SA$:]ERROR:PRINT:T$=SA$:GOTO 100
500 PRINT "[147]":PRINT "  CHANGE[146]":PRINT:PRINT:PRINT"  R[146]ECITER/SAM[146]":PRINT
510 PRINT "  P[146]ITCH":PRINT:PRINT "  S[146]PEED":PRINT:PRINT "  T[146]HROAT"
520 PRINT:PRINT "  M[146]OUTH":PRINT:PRINT "  L[146]IGHTS":PRINT
530 PRINT "  E[146]ND CHANGES":PRINT:PRINT "  N[146]ORMAL VOICE"
540 PRINT :PRINT "  B[146]ACK TO BASIC"
600 GET A$:IF A$="" THEN 600
610 IF A$="R" OR A$="[210]" THEN 1000
620 IF A$="P" OR A$="[208]" THEN 1100
630 IF A$="S" OR A$="[211]" THEN 1200
640 IF A$="T" OR A$="[212]" THEN 1300
650 IF A$="M" OR A$="[205]" THEN 1400
660 IF A$="L" OR A$="[204]" THEN 1500
680 IF A$="E" OR A$="E" THEN PRINT "[147]":PRINT:PRINT:GOTO 100
685 IF A$="N"OR A$="[206]" THEN 1600
690 IF A$="B" OR A$="[194]" THEN END
695 GOTO 600
1000 PRINT:PRINT "S[146]AM OR R[146]ECITER";
1010 GET A$:IF A$="" THEN 1010
1020 IF A$="S" OR A$="[211]" THEN:]SA:GOTO 500
1030 IF A$="R"OR A$="[210]" THEN:]RE:GOTO 500
1040 GOTO 1010
1100 PRINT :PRINT "P[146]ITCH = ";:INPUT A
1110 IF A<0 OR A>255 THEN 1100
1120 POKE 39439,A:GOTO 500
1200 PRINT:PRINT "S[146]PEED = ";:INPUT A
1210 IF A<0 OR A>255 THEN 1200
1220 POKE 39438,A:GOTO 500
1300 PRINT :PRINT "T[146]HROAT = ";:INPUT A
1310 IF A<0 OR A>255 THEN 1300
1320 POKE 38881,A:SYS 38882:GOTO 500
1400 PRINT :PRINT "M[146]OUTH = ";:INPUT A
1410 IF A<0 OR A>255 THEN 1400
1420 POKE 38880,A:SYS 38882:GOTO 500
1500 PRINT:PRINT "  LIGHTS   ON[146]  OF[146]F"
1510 GET A$:IF A$="" THEN 1510
1520 IF A$="F" OR A$="[198]" THEN:]LI 0:GOTO 500
1530 IF A$="N" OR A$="[206]" THEN:]LI 1:GOTO 500
1540 GOTO 1510
1600 ]PI 64:]SP 72:]KN 128,128:]LI 0:GOTO 500